home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / FLDUMP.f < prev    next >
Encoding:
Text File  |  1992-07-31  |  555 b   |  20 lines
  1.       SUBROUTINE FLDUMP(NUN,N,STRING,NCOUNT)
  2. *-----------------------------------------------------------------------
  3. *   
  4. *--- writes lines onto output file  
  5. *   
  6. *--- input  
  7. *    NUN         output unit
  8. *    N           # of lines 
  9. *    STRING      lines  
  10. *--- input/output   
  11. *    NCOUNT      counter to be increased by N   
  12. *   
  13. *-----------------------------------------------------------------------
  14.       CHARACTER *(*) STRING(*)  
  15.       DO 10 I=1,N   
  16.          WRITE (NUN,'(A)') STRING(I)
  17.    10 CONTINUE  
  18.       NCOUNT=NCOUNT+N   
  19.       END   
  20.